home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / falclib.lzh / EXAMPLE / SETVDO.S < prev   
Text File  |  1994-08-18  |  634b  |  47 lines
  1. *
  2. * Drop a .FV file on this program.
  3. *
  4.  
  5.         include    releasem.s
  6.         include    getpar.s
  7.         move.l    a0,paradr
  8.         bra    main
  9.         include    shrtones.s
  10.         include    loadfile.s
  11.         include    gem.s
  12.         include    setfv.s
  13.     
  14.     
  15. main        
  16.         move.l    paradr,a5
  17.         move.l    #buffer,a6
  18.         move.l    #48,d7
  19.         bsr    @loadfile
  20.         bsr    @super
  21.  
  22.         lea    buffer,a0
  23.         bsr    @setfv
  24.         cmp.l    #-1,d0
  25.         beq    error
  26.         
  27.         bsr    @user
  28.         bra    @quit
  29.         
  30. error        move.l    #errortext,-(sp)
  31.         @gemdos    9,6
  32.         bsr    @waitkey
  33.         bra    @quit
  34.         
  35. vbl        addq.l    #1,$466
  36.         rte
  37.         
  38.         
  39. errortext    dc.b    'Not a Falcon Video (.FV) file.',10,13,0
  40.     
  41.         section    bss
  42.     
  43.         even
  44. paradr        ds.l    1
  45. buffer        ds.w    22
  46.  
  47.